IF exists(SELECT * FROM dbo.sysobjects WHERE name='fl_waarschuwingPLakken' AND xtype='FN') 
BEGIN
	DROP FUNCTION fl_waarschuwingPLakken
END
GO

CREATE   function fl_waarschuwingPLakken
(@jaar int)

returns @overzicht table(inschrijvingsNr char(7),waarschuwing varchar(500))
as 
begin

declare @hulpWaarschuwing table(inschrijvingsNr char(7),
vak varchar(100))

declare @tekst varchar(500)
declare @iNr char(7)
declare @vak char(30)
declare @oudInr char(7)
declare @klas varchar(5)


declare WaCursor cursor local for 
  select r.vak as vak,r.inschrijvingsNr,r.klas,r.jaar
  from studiegegevens..resultaatWaarschuwing as r
  left join leerlingen..leerlingen as l on
  r.inschrijvingsNr=l.inschrijvingsNr where r.jaar like @jaar-1
  order by r.inschrijvingsNr,r.vak
for read only

set @tekst = ''
open WaCursor
fetch next from WaCursor into @vak,@iNr,@klas,@jaar
if (@@fetch_status=0)
begin
  set @oudInr=@iNr
  while (@@fetch_status=0)
  begin
	if (@oudInr <> @iNr)
	  begin
	    insert into @hulpWaarschuwing(inschrijvingsNr,vak)
            select @oudInr,@tekst
	    set @tekst = rtrim(@vak) + ' '
	    set @oudInr = @iNr	
	  end
   	else
        set @tekst=@tekst + rtrim(@vak) + ' ' 
   	fetch next from WaCursor into @vak,@iNr,@klas,@jaar
  end
   insert into @hulpWaarschuwing(inschrijvingsNr,vak)
   select @oudInr,@tekst
end
close WaCursor
deallocate WaCursor


insert into @overzicht(inschrijvingsNr,waarschuwing)
select inschrijvingsNr,vak from @hulpwaarschuwing
       
/*from  leerlingen..leerlingen as l
left join studiegegevens..resultaatWaarschuwing as r
on r.inschrijvingsNr=l.inschrijvingsNr
left join @hulpWaarschuwing as w
on l.inschrijvingsNr=w.inschrijvingsNr
where r.jaar=@jaar
*/
return
end